#!/usr/local/bin/perl
use warnings;
$a = 0;
sub main()
{
$a = 0;

return $a;
}

print main()."\n";
